home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Peter Lewis / PNL Libraries / MyTypes.p < prev    next >
Encoding:
Text File  |  1994-09-14  |  3.0 KB  |  143 lines  |  [TEXT/PJMM]
  1. unit MyTypes;
  2.  
  3. { From Peter's PNL Libraries }
  4. { Copyright 1992 Peter N Lewis }
  5. { This source may be used for any non-commercial purposes as long as I get a mention }
  6. { in the About box and Docs of any derivative program.  It may not be used in any commercial }
  7. { application without my permission }
  8.  
  9. interface
  10.  
  11. {$IFC undefined THINK_Pascal}
  12.     uses
  13.         Events;
  14. {$ENDC}
  15.  
  16.     const
  17.         sysWDProcID = $4552494B;        { 'ERIK' }
  18.         myErr = -5;
  19.         myErr2 = -6;
  20.         cancelErr = myErr2;
  21.         myErr3 = -7;
  22.         noType = 0;                            { should be OSType(0) !!! }
  23.         fsNoCache = $20;
  24.         fsNewLine = $80; { put the newline character in the high byte of ioPosMode }
  25.         bad_rn = -32768;
  26.  
  27.     const
  28.         M_Apple = 128;
  29.         M_File = 129;
  30.         M_Edit = 130;
  31.         M_Windows = 150;
  32.  
  33.     const
  34.         CAbout = 'abou';
  35.         CNew = 'new ';
  36.         COpen = 'open';
  37.         CSave = 'save';
  38.         CSaveAs = 'svas';
  39.         CClose = 'clos';
  40.         CPreferences = 'pref';
  41.         CPageSetUp = 'pgsu';
  42.         CPrint = 'prnt';
  43.         CHelp = 'help';
  44.         CQuit = 'quit';
  45.         CUndo = 'undo';
  46.         CCut = 'cut ';
  47.         CCopy = 'copy';
  48.         CPaste = 'past';
  49.         CClear = 'clea';
  50.         CSelectAll = 'sela';
  51.  
  52.     const                                    { Low Memory Globals }
  53.         curApNameA = $910;
  54.         ticksA = $16A;
  55.         SFSaveDiskA = $214;
  56.         CurDirStoreA = $398;
  57.         bad_refnum = -32768;
  58.  
  59.     const                                    { Other OS constants, probably declared somewhere now }
  60.         kSysEnvironsVersion = 1;
  61.         kOSEvent = app4Evt;                {event used by MultiFinder}
  62.         kSuspendResumeMessage = 1;    {high byte of suspend/resume event message}
  63.         kResumeMask = 1;                    {bit of message field for resume vs. suspend}
  64.         kMouseMovedMessage = $FA;    {high byte of mouse-moved event message}
  65.         kNoEvents = 0;                        {no events mask}
  66.  
  67.     const                                    { Constants that aren't normally defined }
  68.         drawCntlMsg = 0;
  69.         testCntlMsg = 1;
  70.         calcCRgnsMsg = 2;
  71.         initCntlMsg = 3;
  72.         dispCntlMsg = 4;
  73.         posCntlMsg = 5;
  74.         thumbCntlMsg = 6;
  75.         dragCntlMsg = 7;
  76.         autoTrackMsg = 8;
  77.  
  78.     const
  79.         EMUndo = 1;
  80.         EMCut = 3;
  81.         EMCopy = 4;
  82.         EMPaste = 5;
  83.         EMClear = 6;
  84.         EMSelectAll = 7;
  85.  
  86.     const
  87.         nulChar = 0;
  88.         homeChar = $01;
  89.         enterChar = $03;
  90.         endChar = $04;
  91.         helpChar = $05;
  92.         backSpaceChar = $08;
  93.         tabChar = $09;
  94.         lfChar = $0A;
  95.         pageUpChar = $0b;
  96.         pageDownChar = $0c;
  97.         crChar = $0D;
  98.         escChar = $1b;
  99.         escKey = $35;
  100.         clearChar = $1b;
  101.         clearKey = $47;
  102.         leftArrowChar = $1c;
  103.         rightArrowChar = $1d;
  104.         upArrowChar = $1e;
  105.         downArrowChar = $1f;
  106.         spaceChar = $20;
  107.         delChar = $7f;
  108.         bulletChar = $a5;
  109.         undoKey = $7a;
  110.         cutKey = $78;
  111.         copyKey = $63;
  112.         pasteKey = $76;
  113.  
  114.     const
  115.         nul = chr(nulChar);
  116.         enter = chr(enterChar);
  117.         bs = chr(backSpaceChar);
  118.         tab = chr(tabChar);
  119.         lf = chr(lfChar);
  120.         cr = chr(crChar);
  121.         leftArrow = chr(leftArrowChar);
  122.         rightArrow = chr(rightArrowChar);
  123.         upArrow = chr(upArrowChar);
  124.         downArrow = chr(downArrowChar);
  125.         esc = chr(escChar);
  126.         spc = chr(spaceChar);
  127.         del = chr(delChar);
  128.  
  129.     type
  130.         integerP = ^integer;
  131.         integerH = ^integerP;
  132.         longIntP = ^longInt;
  133.         longIntH = ^longIntP;
  134.         forkType = (no_fork, data_fork, rsrc_fork, both_fork);
  135.         buf255 = packed array[0..255] of char;
  136.         CRLFTypes = (CL_CRLF, CL_CR, CL_LF);
  137.         charSet = set of char;
  138.         short = integer;
  139.         long = longInt;
  140.  
  141. implementation
  142.  
  143. end.